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0 eTITL 3 PE AeSHpL Ra = SEND LOAD REQUEST 
-IDENT ‘Vv04-000' 

00 s eeeeeneeeoccenccencceneeereseconeenneseseneneenncosnseneseeooeesooonsoeoesee 
3* ® 
8 3;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
$ ;* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. « 
% ‘* ALL RIGHTS RESERVED. * 
PY ® 
$00 3* re SOFTWARE IS FURNISHED ves A LICENSE AND MAY BE USED AND COPIED * 
4 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE D WITH THE * 
0 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 7* COPIES THEREOF MAY NOT B OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 3@ HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i 3* TRANSFERRED. * 
3* ® 
000 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
000 ;* CORPORATION. * 
3* * 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Z ® 
y penneneeneseanenEeennsesneenneonnennesennengenenesqonatonseneneeneednenenen 


a 

FACILITY: LPA-11 PROCEDURE LIBRARY 

ABSTRACT: 

THIS ROUTINE SENDS A LOAD REQUEST TO THE LPA-11 MICROCODE 
LOADER PROCESS AND RECEIVES STATUS OVER A TEMPORARY MAILBOX 

ENVIRONMENT: USER MODE 

AUTHOR: STEVE BECKHARDT, CREATION DATE: 8-OCT-78 

MODIFIED BY: 


v03-001 $B6L3001 Steven B. Lionel 30-Mar-1982 
Change module name to LPASSNDLDRQ. 
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<REQUEST 16-SEP-1984 01:45:00 VAX/VMS Macro v04-00 p | 
Boren ORs B1i83599 LTS TeS Regret NOt OO ak. Page 8, 


eo 


«SBTTL DECLARATIONS 

; INCLUDE FILES: 

SDIBDEF : 
SIODEF : 


: MACROS: 


pepe fel ol elololeleloelelololo) 35 


OOOCCCooooooooo 


: EQUATED SYMBOLS: 
: OFFSETS FROM STACK FRAME FOR TEMPORARY STORAGE 


SSNS SND DAD PAA AAA MITT 
ViFWN 0 ODN UE WN 0 OONOU EWN OOOne 
>. 


OAD 
10N 
: 
00 
$8 
00000070 94464 WRKSPACE = 112 ; AMOUNT OF WORKSPACE TO ALLOCATE 
FFFFFF9O 0000 10SB = -112 ; 1/0 STATUS BLOCK 
FFFFFF98 444 SMBCHAN = -104 ; SEND MAILBOX CHANNEL NUMBER 
FFFFFF9A 0000 oy li -102 : RECEIVE auteee CHANNEL NUMBER 
FFFFFF9C 0000 MBXBFR = -100 ; MAILBOX BUFFER 
FFFFFFBC 0000 CHANBFRDSC = -68 ; CHANNEL CHARACTERISTICS BUFFER DESCRIPTOR 
FFFFFFC4 44464 CHANBFR = -60 ; CHANNEL CHARACTERISTICS BUFFER 
0000003C 4 CHANBFRSIZ = 60 ; CHANNEL CHARACTERISTICS BUFFER SIZE 
8000 ; OFFSETS INTO MAILBOX MESSAGE 
00000000 0000 MBXSL_TYPE = 0 ; RE SSAGE TYPE 
00000004 0000 76 MBX$B_ cme. 4 ; CONT Pott 
00000005 0000 77 MBX$B_MCTYPE = 5 ; MICROCODE TYPE 
00000006 44 } MBXS$WORMBUNIT = 6 ; RETURN MAILBOX UNIT 
0000 80 ; OWN STORAGE: 
0000 81 ; 
0000 Hf 
00000000 8 -PSECT _LPASCODE,PIC,SHR,EXE ,NOWRT,LONG 
38 
0000000A* 0000 86 SMBDSC: .LONG SMBNAMSIZ ; SEND MAILBOX NAME DESCRIPTOR 
00000008" B08 rH -LONG SMBNAM 
52 45 44 41 GF 4C 24 41 50 4C Bats 89 SMBNA ASCII PL PASLOADER/ ; SEND MAILBOX NAME 
Q000000A 001 90 SMBNANSI2 = .~SMBNA 


LPASSNDLORQ 
y04-000 
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Page ad | 
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‘+ -SBTTL LPASSSNDLDRQ - SEND REQUEST TO LOADER PROCESS 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SENDS A LOAD MICR rg tt DE REQUEST TO THE LOADER PROCESS 
AND RECEIVES A RESPONSE OVER A TEMPORARY MAILBOX 
; ; CALLING SEQUENCE: 
CALLS/G 
; INPUT PARAMETERS: 
4 (AP) ADDRESS OF A WORD CONTAINING CHANNEL ASSIGNED 
8 (AP) MICROCODE TYPE LOA 
1 = MULTIREQUEST MODE 
¢ = DEDICATED A/D MODE 
= DEDICATED D/A MODE 


THIS ROUTINE ASSUMES THAT A CHANNEL HAS BEEN ASSIGNED TO AN LPA-11 
; : OUTPUT PARAMETERS: 


RO CONTAINS COMPLETION CODE 
R1 CONTAINS SECOND LONGWORD OF I/O STATUS BLOCK 
ssc oe SS$_DEVREQERR, SS$_DEVCMDERR, OR 


jeleleleleleleleleleleleleleleleleoleleleleleolololelela) 
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: IMPLICIT OUTPUTS: 
THE CHANNEL IS DEASSIGNED 
COMPLETION CODES: 
VARIOUS COMPLETION CODES RETURNED BY THE SYSTEM 


SSS SS SS SS SSS SSS SSS SS SS SSS SSS SSIS 
Ooooooo 


: IMPLICIT INPUTS: 
001 : 


BEEP EEE EWM NIWINIIWIWIIWIIRIPINININININININID) 2 2 PP OP SH HF MOOOOOOOOCOCOCOOOWOOOOWwOO 
CONIA UE WR 0 OD NAW EWN 9 OO NAME WIN 0 OD NA UE WWI 0 OD NAME WWI 0 OONAU EWP 


ma aaa aaa i ak a a a a a a st a ss a Ss 2 9 2s os a st 


001 _ 
001 
001 .ENTRY LPASSSNDLDRQ, “M<R2,R3,R4> 
001 ; ALLOCATE WORK SPACE ON STACK 
9E 001 MOVAB  -WRKSPACE(SP),SP 
D4 001 CLRL  MBXBFR+MBXSL_TYPE(F : CLEAR MESSAGE 
90 001 MOVB BCAP), CARN SREKSS ACTYPE (FP) : STORE M.C. TYPE. iN _alLeox BFR 
DO 00 MOVL : GET ADDRESS OF CHANNEL 
9E 09 MOVAB CHANBFR(FP) ,R2 GET ADDRESS OF CHAN, INFO. BFR 
9A 00 MOVZBL #CHANBFRSIZ,CHANBFRDSC(FP) : BUILD A DESCRIPTOR TO 
DO 00 MOVL  R2,CHANBFRDSC+4 (FP) : CHANNEL INFO. BUFFER 
0 SGETCHN_S PRIBUF = ast” NBFRDSC(FP),- : GET CHANNEL INFO. 
0 CHAN = (R3) : FOR DEVICE 
DD 04 PUSHL RO : SAVE STATUS 
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45 149 SDASSGN_ s CHAN = (R3) DEASSIGN CHANNEL TO DEVICE 
50 BEDO 4F 130 OPL RO ; REST Tore § 
2E E 2 1 BLBC RO, 10$ + ERROR 
3 1 j GET DEVICE NAME AND VERIFY ITS AN LPA=11 BEFORE GETTING CONTROLLER 
51 02 AD 3 154 hoviwe BACH ANBFR+DIB$W_DEVNAMOFF (FP) ,R1 set O DEVICE NAME 
5 51 059 «155 ADDL  R1,R : abp TO STAR GT ADDR. OF BUFFER 
50 0000°8F 3c 005¢ 136 MOVZWL Asis. IVDEVNAM, ,RO ; ASSUME ERR ROR 
03 B82 91 0061 15 CMPBs(R2) ; SHOULD HAVE AT LEAST 3 CHARS. 
1D 1F 0064 138 BLSSU 108 ; ERROR = LESS THAN 3 CHARS 
414C BF 82 8] 066 139 cHPW (Re), /WAA'LA' ; MAKE SURE DEVICE NAME 1S "LA 
AO AD a 36 00sp 16 MOVB  (R2)+,MBXBFR+MBX$B_CTRLR(FP) : COPY CTRLR LETTER INTO MB BFR 
0071 163; 
O07) 164 ; NOW SEND LOAD REQUEST TO LOADER PROCESS AND GET REPLY 
0071 166 SASSIGN_S DEVNAM = SMBDSC : DEVICE NAME 
0071 +16 CHAN = SMBCHAN (FP) * CHANNEL 
03 50 é8 0080 168 BLBS RO,20$ : SUCCESS 
00AD = 31 0085 169 10$: BRW 90$ t ERROR 
0086 171 20S: CREATE A TEMPORARY MAILBOX TO GET REPLY AND GET ITS UNIT NUMBER 
0086 17 $CREMBX “Ss RMFLG = #0,- : TEM PORARY MAILBOX 
0086 17 CHAN = RMBCHAN(FP),- ss: CHA NNE 
0086 174 MAXMSG = #32,- + MAXIMUM MESSAGE SIZE 
0086 175 BUFQUO = #32 BUFFER QUOTA 
03 50 8 009A 176 BLBS  R0,30$ : success 
0082 «(31 9090 V7 BRW 70$ : ERROR 
00A0 179 30$: SGETCHN_S PRIBUF = CHANBFRDSC(FP),- ; PRIMARY BUFFER 
0OAO 180 CHAN = RMBCHAN(FP) : CHANNEL 
58 50 £9 0084 181 BLBC —RO, 608 : ERROR 
DO AD BO 0087 185 MOVW  CHANBFR*+DIBSW_UNIT(FP),- : STORE UNIT # OF RETURN 
A2 AD O0BA 184 MBXBFR+MBX$w_RMBUNI T (FP) + MAILBOX IN BUFFER 
00OBC 186 SEND REQUEST TO LOADER PROCESS 
O0BC 187 Salou _S FUNC = #10$_WRITEVBLK! 10SM_NOW,- ; FUNCTION 
O0OBC 188 CHAN = SMBCRAN(FP),= : CHANNEL 
OOBC 189 10SB = IOSB(FP),- : 1/0 STATUS 
00BC 190 Pl = MBXBFR(FP).- > BUFFER 
ooB¢ 191 2 = #8 : SIZE 
3350 €9 O0DC 198 BLBC ~—RO, 608 : ERROR 
50 90AD 7D OODF 19 MOVO  JIO0SB(FP),RO : GET 1/0 STATUS 
2c 50 «EO OES 194 BLBC _RO,60$ + ERROR 
0&6 196 : GET REPLY FROM LOADER PROCESS 
0&6 197 $010w_ F 10$_READVBLK,- ; FUNCTION 
0&6 198 AN = RMBCRAN(FP).-  : CHANNEL 
0&6 199 OSB(FP) : 1/0 STATUS BLOCK 
0&6 200 R(FP) : BUFFER 
0&6 201 > SIZE 
0B 50 9 104 0¢ ROR 
50 90 AD 7D 0107 20 T 1/0 STATUS 
0450 €9 8 04 ROR 
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10€ ; HAVE REPLY = PICK IT UP 
50 9C AD 7D 1p oF MOVO = MBXBFR(FP),R 
11 09 60$: » DEASSIGN BOTH MAILBOX CHANNELS 
7E SO 7D O11 10 MOVO  ~—s RO, = ( SP) ; SAVE STATUS 
1 11 SDASSGN_S RMBCHAN(FP) 
03 «11 1 BRB 80$ 
8 14 708: ; DEASSIGN SEND MAILBOX CHANNEL 
7E 50 7D O01 15 MOVG (SP) ; SAVE STATUS 
i ; 16 80$:  SDASSGN_S SMBCHAN(FP) 
50 8& 7D 9 18 MOVa = (SP) +, RO ; RESTORE STATUS 
04 83 3 220 908: RET 
0134 31 
0134 é 
0134 < 
0134 4 END 
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Symbol table - IOSUP.SRCJLASNDLDRQ.MAR; 1 
$$T1 = 00000001 
CHANBFR = FFFFFFCG 
CHANBF RDSC = FFFFFFBC 
CHANBFRSIZ = 00 C 
BIB BMnorr: SSSR 
= 
1OsR, ROW = 90000026 
10$_READVB = B28 . 1 
10$ WRITEVBLK = 
10S6 = FFFFFF 
LPASSSNDLDRQ 000012 RG 02 
MBX$B_CTRLR = aie 
MBX$B-MCTYPE = 00000005 
MBXSL_TYPE = 00000000 
MBX$W-RMBUNIT = 00000006 
MBXBF = FFFFFF9C 
RMBCHAN = FEFFFFFOA 
SMBCHAN = FEFFFF98 
SMBDSC 00000000 R 02 
SMBNAM 00000008 R 02 
SMBNAMS 17 = 0000000A 
SS$_IVDEVNAM tererter zg @ 
SYSSASSIGN eeeereee GX 0 
SYSSCREMBX eeeeenee GX 0 
SYSSDASSGN eeerenee § GX 0 
SYSSGETCHN eeneeeree GX 8S 
SYS$Q10W ereeeenre GX 0 
WRKSPACE = 00000070 
$ oem wm ee mem nremree a 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
‘ . 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O1¢ 1.) NOPIC USR CON’ ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LPASCODE 00000134 (¢ 308.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
eee mene meee men om ee moe + 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.07 90:00:00.68 
Command processing 115 00:00:00.47 00:00:01.4 
— 3 epee "8 00:00: $746 00:00:01.3) 
m able sor :00:00. :00:01. 
Pass 2 5$ 000;00:98  09:00;02.45 
Symbol table output 4 OD 289: 0.04 899 :29-08 
Psect synopsis output 1 BF 8 : of 0:00:00. ‘ 
Cross-reference output 9 8 98:80-9 0:00:00.0 
Assembler run totals 39 00:00:06.59 0:00:14.65 


| the york ing set Limit was 1050 pages. ; : 
bytes (48 pages) of virtual memory were used tc bufrer the intermediate code. 
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VAK-11 Macro Run Statistics -SEP=1984 01:32:1 


There were 30 pages of symbol table space allocated to hold 413 non-local and 7 local symbols. 


224 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
18 pages of virtual memory were used to define 17 macros. 


ome ee Eee eee ee 


! Macro Library statistics ! 


oo + 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 14 
547 GETS were required to define 14 macros. 


There were no errors, warnings or information messages. 


MACRO/DISABLE=TRACE/LIS=LIS$:LASNDLDRQ/OBJ=0BJ$:LASNDLDRQ MSRC$:LASNDLDRQ/UPDATE=(ENH$:LASNDLDRQ) 
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